Sample Code - TextObject Object

This sample code shows the use of the TextObject Object. Modify the following sample code to fit your needs.

Class TextObject
Private Sub Ps_Count_Click()
'returns number of paragraph objects in a text object
Dim crystalreport As CRPEAuto.Report
Dim sectsVar As CRPEAuto.Sections
Dim sectVar As CRPEAuto.Section
Dim objs As CRPEAuto.ReportObjects
Dim textObj As CRPEAuto.TextObject
Dim parsObj As CRPEAuto.Paragraphs
Dim test As Integer

On Error GoTo ErrorHandler
test = 1
Set crystalreport = app.OpenReport(ManyObjsReport)
Set sectsVar = crystalreport.Sections
Set sectVar = sectsVar.Item("RF")
Set objs = sectVar.ReportObjects
Set textObj = objs.Item(3)


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com